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ABSTRACT 

ABSTRACT.  Most  suppliers  of  A PL  have  not 
yet  implemented  the  STAPL  convention  for  trans- 
mitting workspaces  from  one  installation  to 
another.  This  report  describes  three  workspace 
representations  which  may  be  used  on  a 
DffCsystem-10  for  this  purpose.  Two  are  partial 
implementations  of  the  STAPL  convention:  one 
for  level  2 of  the  convention,  the  other  for 
level  3.  The  third  representation  is  a terminal 
transcript  file  which  is  to  be  used  as  an  input 
file.  In  addition,  these  representations  may  be 
used  to  reduce  the  disk  storage  required  for  APL 
workspaces  on  the  Dfi'Csy stem-10. 

Key  Words  and  Key  Phrases:  APL  Workspace  Interchange 

APL  Workspace  Transfer, 

, Software  Exchange 
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1.  Introduction 


This  report  describes  three  representations  of  an  APL  workspace  which 
can  be  used  to  move  workspaces  from  or  to  a DEC&y stem-10.  The  terminal 
transcript  representation  for  moving  from  a DEC system-10  assumes  that  the 
destination  machine  is  able  to  read  input  from  a key  paired  ASCII/APL  file 
as  though  the  contents  of  the  file  were  typed  on  a terminal.  The  second 
and  third  are  implementations  of  levels  2 and  3 of  the  proposed  STAPL  con- 
vention for  the  interchange  of  workspaces  [2].  Since  the  level  2 implemen- 
tation is  a key  paired  ASCII/APL  representation,  both  the  sending  and  re- 
ceiving installations  must  be  able  to  read  ASCII  files.  For  level  3 the 
workspace  is  converted  to  a bit  stream  and  this  representation  is  intended 
for  exchanges  between  a DECsy stem-10  and  a machine  which  does  not  support 
ASCII  files. 

Programs  have  been  written  for  the  LLCsystem-lO  to  produce  the  three 
representations  and  to  create  APL  workspaces  from  the  level  2 and  level  3 
representations  of  the  STAPL  convention.  For  the  key  paired  ASCII/APL 
files,  the  programs  described  in  [3]  can  be  used  to  write  the  disk  files 
on  magnetic  tape. 

The  terminal  transcript  and  level  2 representations  described  here 
have  been  used  to  move  workspaces  from  DEC  system-10  to  APL/VS  on  an  TBli 
370/158  and  to  i-JULTICS  APL.  There  is  no  claim,  however,  that  the  programs 
described  in  this  report  are  completely  correct  and  users  are  advised  that 
there  is  no  guarantee  that  their  workspaces  will  be  transferred  correctly 
by  any  of  the  three  methods  described  in  this  report.  This  caution  is  espe- 
cially relevant  to  the  procedures  for  the  level  3 representation;  these  pro- 
cedures have  been  tested  on  only  a small  sample  of  workspaces. 

APLSF,  as  implemented  on  the  LFCsystem-lO,  has  several  features  which 
are  not  generally  available  on  other  APL  implementations.  It  is  desirable 
to  remove  most  of  these  dependencies  before  transmitting  the  workspace. 
Section  2 describes  some  of  the  more  important  changes  that  should  be  made 
prior  to  converting  the  workspace. 

Section  3 describes  the  terminal  transcript  representation  and  Section 
4 the  level  2 and  level  3 canonical  representations.  Section  5 gives  direc- 
tions for  using  the  workspace  GENTT  to  produce  a terminal  transcript  and 
Section  6 directions  for  using  the  workspace  GENCRV  to  generate  a workspace 
canonical  representation  at  level  2 or  level  3.  Section  7 describes  the 
workspace  GENWS  to  create  a workspace  from  a canonical  representation  file 
on  the  L£Csystem-10.  Listings  of  these  three  workspaces  are  included  as 
appendices. 


2.  Workspace  Preparation 

If  there  are  locked  functions  in  a workspace,  these  functions  cannot 
be  converted  since  it  is  impossible  to  obtain  the  character  representations. 
Therefore,  any  locked  functions  which  are  to  be  transferred  should  be  re- 
placed by  unlocked  copies  prior  to  the  conversion. 


, APLSF  differs  from  other  APL  implementations  in  that  two  characters, 
carriage  return  and  line  feed,  are  used  to  separate  lines;  others  use  the 
single  character:  new  line.  For  example,  in  APLSF: 

1 

O' 

2 p ,C 
while  in  APL/SV: 

O' 

1 P ,c 

Since  the  character  pair  - carriage  return,  line  feed  - will  not  be  converted 
into  a single  character  by  any  of  the  three  procedures  discussed,  it  is  desira- 
ble to  replace  all  occurrences  of  carriage  return-line  feed  with  some  other 
character.  For  the  terminal  transcript  and  level  2 representations,  this 
must  be  done  before  a conversion  is  attempted;  in  fact,  for  both  methods, 
all  control  characters  must  be  replaced  since  the  files  generated  are  ASCII 
character  files. 

APLSF  has  a number  of  system  functions  for  communicating  with  the  file 
system.  These  include  Q4SS,  DZJ45  and  □ CLS . These  strings  will  cause  errors 
in  other  implementations  and  should  be  replaced  with  user  defined  function 
names.  More  seriously  in  terms  of  transferring,  the  APLSF  input/output  primi- 
tives (0,  0,  0)  are  not  supported  in  this  form  in  other  implementations.  These 
APLSF  characters  will  not  be  recognized  as  valid  APL  characters  and  it  is, 
therefore,  important  that  these  APLSF  primitives  be  replaced  by  user  defined 
function  names. 

APLSF  includes  system  commands  in  the  domain  of  the  execute  function 
(a)  but  they  are  excluded  in  the  IBM  implementations.  If  such  expressions 
remain  in  the  texts  of  functions,  they  will  result  in  an  error  when  execu- 
tion of  the  functions  is  attempted.  Similarly,  the  APLSF  unquote  function 
(e  or  l)  will  cause  errors  and  will  need  to  be  revised  at  some  time. 

The  limited  editing  possible  in  APL  is  not  adequate  for  the  sorts  of 
modifications  discussed  above  and  the  function  SOS  described  in  [1]  which 
permits  entry  into  SOS  from  APL  is  particularly  useful. 


3.  Terminal  Transcript  Representation 

Some  APL  systems  support  a means  of  reading  a file  as  though  the  lines 
of  the  file  were  typed  on  a terminal.  The  command  ) INPUT  in  APLSF  is  an 
example  of  this  facility.  If  such  a facility  is  available  at  the  receiving 
site,  it  is  possible  to  substantially  reduce  the  computer  resources  required 
to  transfer  workspaces  by  simply  writing  a terminal  transcript.  There  is, 
however,  an  important  risk  associated  with  the  use  of  this  representation. 

If  the  terminal  transcript  contains  APL  characters  not  available  in  the 
destination  system,  a character  error  will  occur  during  the  reading  of  the 
file.  If  this  occurs,  the  entire  transcript  file  must  be  edited  it  may  be 
necessary  to  start  the  workspace  restoration  from  the  beginning.  Consequently, 
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4.  STAPL  Canonical  Representation 


The  level  2 and  level  3 representations  described  in  this  report  are 
based  on  the  STAPL  proposed  convention  for  the  interchange  of  workspaces. 

A stream  of  canonical  representation  vectors,  one  for  each  of  the  individuals 
in  the  workspace,  is  generated  and  written  to  a file.  For  level  2 the  stream 
consists  of  key  paired  ASCIIJAPL  characters  and  for  level  3 the  individuals 
are  encoded  as  a stream  of  binary  numbers.  This  stream  is  appended  to  a 
stream  identifier  and  a translation  table.  The  translation  table  is  used 
at  the  destination  to  convert  the  workspace  stream  of  bits  to  APL  charac- 
ters and  for  level  3 the  individuals  are  encoded  as  a stream  of  binary  num- 
bers. This  stream  is  appended  to  a stream  identifier  and  a translation 
table.  The  translation  table  is  used  at  the  destination  to  convert  the  work- 
space stream  of  bits  to  APL  characters. 

The  STAPL  proposal  defines  a canonical  representation  vector  to  be  of 
the  form: 

<length><type><name><space><rank><space><shape><space>< element s> 

In  this  report  the  types  are  restricted  to: 

C character  variable 

N numeric  variable 

F function 

P pseudovariable  used  to  describe  the  stream 

For  level  2 the  stream  which  represents  the  workspace  has  the  form: 
<wsld><crv£.  . .<crvn><end> 

where  <wsid>  is  the  canonical  representation  vector  naming  the  work- 

space 

<crv^>  are  the  canonical  representation  vectors  of  the  individuals 
<end>  is  the  stream  termination  vector 
The  level  2 canonical  representation  of  the  workspace  MUMBLE  would  be: 
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For  level  3 the  characters  of  the  canonical  representation  of  level  2 
are  further  encoded  as  indices  of  a vector  of  the  APL  character  set  used  by 
the  sending  maching.  These  indices  are  then  expressed  as  binary  numbers. 
For  example,  suppose  the  execute  character  (±)  is  the  110th  element  of  this 
vector.  Assuming  the  index  origin  to  be  zero,  the  execute  character  is 
represented  or  defined  as  the  index  109  and  would  appear  in  the  bit  stream 
as  1101101.  In  this  way,  the  APL  characters  of  level  2 are  expressed  as 
binary  numbers  at  level  3. 
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To  reconstruct  the  APL  characters  from  these  binary  numbers,  the  array 
TRANSLATE  is  defined.  Each  row  of  this  array  corresponds  to  an  APL  charac- 
ter available  at  the  sending  installation  and  the  number  of  columns  is  the 
maximum  number  of  overstrikes  required  to  print  the  character  (for  charac- 
ters requiring  fewer  than  the  maximum  number  of  columns,  the  remaining  col- 
umns contain  the  character  SPACE ) . The  array  is  then  converted  to  a level 
2 canonical  representation  vector  and  encoded  as  indices  into  the  ASCII /APL 
transmission  code  vector.  These  indices  are  expressed  in  binary  and  this 
representation  is  attached  to  the  beginning  of  the  workspace  bit  stream. 

At  the  receiving  site,  this  translation  array  is  decoded  using  the  ASCII J APL 
transmission  code  vector  to  a character  string.  This  string  is  then  con- 
verted to  a character  array  which  is  used  to  construct  an  APL  character  vec- 
tor. The  APL  character  vector  is  then  used  to  decode  the  remainder  of  the 
workspace  stream  to  a level  2 representation. 


5.  Generating  a Terminal  Transcript 

The  following  directions  for  generating  a terminal  transcript  of  a work 
space  assume  that  the  workspace  has  been  prepared  as  described  in  Section 
2.  All  of  the  directions  use  the  workspace  name  MUMBLE , all  occurrences  of 
which  should  be  replaced  by  the  name  of  the  workspace  to  be  transferred. 

After  the  workspace  is  prepared,  load  it  as  an  active  workspace: 

)LOAD  MUMBLE 

Next  copy  the  terminal  transcript  generator  and  begin  execution  as  in  the 
following  transcript: 

)COPY  APL: GENT 
EAINIT 

DESTINATION  WORKSPACE  NAME:  MUMBLE 
OUTPUT  LINE  LENGTH:  80 

The  first  prompt  requests  the  name  of  the  workspace  to  be  used  at  the  re- 
ceiving site.  If  carriage  return  is  entered,  the  name  of  the  current  work- 
space will  be  used  ( MUMBLE ) . The  second  prompt  requests  the  maximum  length 
of  a file  line.  This  will  be  the  maximum  number  of  ASCII /APL  characters 
(the  minimum  should  be  at  most  3 fewer).  If  carriage  return  is  entered, 
the  print  width  (DP&O  of  the  active  workspace  will  be  used. 

Since  all  output  has  been  directed  to  the  file,  no  reports  are  dis- 
played on  the  terminal  until  the  conversion  is  completed , at  which  time 
the  following  message  is  displayfed: 

FILE  CREATED:  MUMBLE. TSP 

This  procedure  is  repeated  for  each  workspace  that  is  to  be  transmitted 
If  desired,  the  separate  terminal  transcript  files  may  be  combined  into  a 
single  file.  The  disk  files  can  be  written  on  magnetic  tape  using  the  direc 
tions  given  in  [3]. 
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6.  Generating  Canonical  Representations 

As  in  Section  5 the  following  directions  assume  that  the  workspace  has 
been  prepared  for  transmission.  Again  the  directions  use  the  workspace  name 
MUMBLE  which  should  be  replaced  by  the  workspace  name  to  be  transmitted. 

After  the  workspace  has  been  prepared,  load  with  the  command: 

)LOAD  MUMBLE 

Next  copy  the  canonical  representation  generator  and  begin  execution: 

)COPY  APL : GENVEV 
LAIN  IT 

DESTINATION  WORKSPACE  NAME : MUMBLE 
LEVEL  OF  CONVERSION : 

ENTER  2( CHARACTER  STREAM)  OR  3 (BIT  STREAM)  : 

The  first  prompt  requests  the  name  of  the  workspace  to  be  used  at  the  desti- 
nation site.  If  a carriage  return  is  entered,  the  name  of  the  current  work- 
space QyIUMBLE)  will  be  used.  The  second  prompt  requests  whether  level  2 or 
level  3 conversion  is  to  be  performed.  If  the  number  3 is  entered,  the  con- 
version begins.  If  the  number  2 is  entered,  a third  request  is  displayed 
OUTPUT  LINE  LENGTH : 80 

The  third  prompt  requests  the  number  of  APL  characters  that  are  to  be  writ- 
ten on  each  output  line.  If  a carriage  return  is  entered,  the  print  width 
(DP&O  of  the  active  workspace  will  be  used.  In  deciding  on  the  line  length, 
allow  for  a substantial  increase  in  the  actual  line  length  due  to  overstruck 
characters . 


7.  Restoring  Canonical  Representations 

The  following  directions  assume  that  the  canonical  representation  file 
to  be  converted  is  of  a single  workspace.  Load  the  workspace  generator  and 
begin  execution: 

)L0AD  GENES 
LAIN  IT 

FILE  TO  BE  CONVERTED : MUMBLE 
TYPE  OF  FILE : 

ENTER  2( CHARACTER  STREAM)  OR  3 (BIT  STREAI4) : 

The  first  prompt  requests  the  name  and  extension  (if  any)  of  the  file.  The 
second  prompt  requests  whether  the  file  is  an  ASCII/APL  character  stream  or 
a bit  stream.  If  the  number  2 is  entered,  a third  request  is  displayed: 

FILE  LINE  LENGTH : 

The  line  length  entered  should  be  that  used  when  the  file  was  generated. 

After  this  initial  dialogue,  the  reconstruction  of  the  workspace  begins. 
For  a bit  stream,  the  initial  phase  is  a check  that  the  stream  identifier 
is  correct.  If  it  is  not,  a message  is  displayed  that  the  file  does  not 
conform  to  STAPL  format  conventions  and  the  conversion  is  terminated.  If 
it  is  correct,  the  translation  table  is  reconstructed  using  the  ASCII/APL 
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transmission  vector  and  then  written  on  a temporary  file  MUMOnn.CRVi. where 
'nn'  is  a two  digit  number).  This  file  is  then  read  to  create  the  APL  charac- 
ter vector.  If  there  are  APL  characters  which  are  not  recognized  by  APLSF , 
a character  error  will  occur  at  this  point.  Should  this  occur,  the  tempo- 
rary file  can  be  modified  and  execution  resumed  at  AATCVT[ 3). 

Following  this  phase  of  the  bit  stream  reconstruction,  the  workspace 
is  converted  to  a character  stream  and  written  on  the  file  MUMOnn.CRV . 

The  character  stream  is  read  in  blocks  of  10  lines  and  the  individual 
canonical  representation  vectors  are  extracted.  As  the  APL  individuals 
are  reconstructed  from  the  canonical  representation  vectors,  the  names  are 
displayed  on  the  terminal. 

When  the  individuals  have  been  reconstructed,  the  conversion  is  termi- 
nated with  the  following  messages: 

THE  ABOVE  INDIVIDUALS  HAVE  BEEN  RECREATED 
TO  COMPLETE  THE  WORKSPACE  RECONSTRUCTION ; 

ENTER  THE  FOLLOWING: 

)WSID  MUMBLE 
) ERASE  AAGENWS 
)SAVE 

where  AAGENWS  is  the  group  of  global  variables  and  functions  of  GENWS. 
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APPENDIX  A 


WORKSPACE  GENNT 
TERMINAL  TRANSCRIPT  GENERATOR 


System  Variables: 

QTO  -*-*■  1 


Variables : 

AA22  is  used  in  determining  the  number  of  APL  characters  to  be  written  on 
an  output  line. 
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L?3 
i«  j 

L ^ J 
L 10  j 
L 11J 
L 12  j 
L 13  j 

L 14  j 

Cis  j 
i 16  3 
il7j 
i la  j 
L Id  j 
L 20  j 
l 2 1 J 

L 2 2 3 
L 23  j 


A LX  fa/  AAj/;AA(7;AAS;AA£ 

a AA TTRJ  PRODUCES  A TERMINAL  TRANSCRIPT  OF  A 
a VARlAbLE  ASSIGNMENT 
AA£«-iA  AjL 
P A6«-?p  A AC 
AA£«*A LDPLQl  , A AC 

a ASSIGN  TO  VARIABLE  NAME  ITS  VALUE  REPRESENTED 
a /SC  4 Crf/SA/SCrCA  /ECTOR 
AA£,  » ’ 1 

LhTTRV l:4-(o  = pAAC)/AAT2’/fl/2 

a DETERMINE  LENGTH  OF  CHARACTER  STRING  TO  FILL  FILE  LINE 
AAV«-"l  + ( ( + \l+(  AA£eAA0S)  *2)  > (pAAC)  |_L)PV-4  + 2xp  , AAV)  a 1 
a CCCC/C  CHARACTER  STRING  DOES  NOT 
A CONTAIN  ODD  NUMBER  OF  QUOTES 
AA£«-AAV-0*2  I +/  ( AAVt  AAC  ) = ' ' ' ’ 

AA£, , AaV, ’ , » ' ’ , < AAV+AA£)  , ’ ’ ’ f 
AA£-*-AAV+ AAC 
■+RLTTRV 1 

a IT  NUMERIC,  CONVERT  VALUE 
LLTTRV2  : -*■  ( ’ » = it  Op  , lA  A.V ) / LATTRV  3 

AA;V,’ Ti  4 ~ 1 L 1 + 0 = p , lA  A:V  j t ’ A A.V  O’ 
a RESHAPE  VARIABLE 

LLT'T  RV  Z : l(0*pAAS)/  ’ A A/I , ’ ’ , A A£,  * ’ p ’ ’ , A A<V  ' 

' ’ ’ ' , AA:V  , ” ” 


LETTRF 


v LATTRF  AA4;AAV;AAS 

i 1 3 a hhTTRF  PRODUCES' A TERMINAL  TRANSCRIPT  OF  THE  FUNCTION  AA £ 
L 2 3 LLA*-Lt\QDCR  AA -4 

L3j  AA£«-pAA4 

L 4 J A A/i*-A  EDPLQ  , A A /I 

i 5 3 ’AAfr^’”” 

L 6 3 ELTTRF1  ’.^(.Q-pLLA)/ LET  TRF2 

L73  a DETERMINE  LENGTH  OF  CHARACTER  STRING  TO  FILL  FILE  LINE 
id  3 AAV«-~l+(  ( + \l+(  AA-4eAA25>x2)>(pAA4)LuPV-12)  il 

il  9 3 A CHECK  THAT  CHARACTER  STRING  DOES  NOT 
c 1 o 3 A CONTAIN  ODD  NUMBER  OF  QUOTES 
L 113  AAV^AAV-0^2 I + / ( AAVtAAi)  = ’ ’ ’ ’ 

L 123  ’ AA£I-AA ££, ’ ’ ' , ( AAVt AA£ ) , ’ ’ ’ ’ 

L 1 3 J A A^^A Ai+ AA£ 

i 14  3 +LLITRF1 

L 15  3 A RESHAPE  FUNCTION  DEFINITION  AS  A CANONICAL  REPRESENTATION 
L 16  3 LRTTRF2  : ' AA££-’  , ( vAA£) , ’ oAA ££' 

L 1?  J a A’lX  THE  FUNCTION 
Lid  3 ’ A Li_Z*m'OFK  AA££* 

v 


11 


jEnCRV  lei  hit 


V AAlA/If;  AAV£;  AAA£;  AA£fl;  AAI£;  AAFS;  AAI0 
L 1 ] LEIG*-\jIO 

L 2 j uIG*- 0 

L3J  ' DESTINATION  WORKSPACE  HAMS:  «' 

L *+  J A Aj/jj"- , iL 

L 5 j 1(1  = 0 A A VS , ' ' ) / ' LL£S+-t"  )VSID' " 

loj  'LEVEL  Os  CONVERSION:' 

L 7 j ’ _ 5 NT  ER  2 (.CHARACTER  STREAM)  OR  3 (air  STREAM ):  n’ 

Lbj  Lb^C*-' 2 + t‘L 

l9j  +tbZ»L/ AAI;Vir3 

illGj  fl  INITIALIZATION  BOR  CHARACTER  STREAM  FILE 
L 1 1 J ' FILE  LIRE  LE.v’jT  H : fl’ 

L 1 '2  j A AnL'**!J 

l 1 o j lLeL*- 1 3 5Ll*pAAn£,'  ’j+’uFiv'  lAA/t^’ 

L 1 4 J A A£n«-u/4.SS  A AV£ , ’ ^ S T 

L 15  j LbSiV_+-'  ' 

Lloj  ■+  A A I .V I r 1 

l 1 7 j fl  INITIALIZATION  FOR  BIT  STREAM  FILS 
L 1 6 J LLINIT3  : Lb£H*-\jASS  A AV^ , ’ .bRV/BU' 

L 19  J « DETERMINE  FRAMESIZE 
l2oj  A Ata-^r  2*0  A AAV 

l21j  AA^^^U IV 

i ^ 2 J A Al .2 II 1 : A A££n / 

L 2 o J ut/AS  LL’Zli 

L 24  J * CONVERSION  COMPLETED:' 

L 2 5 j ’ FILE  CREATED:  ’ ,AA VS,  7 "7 [ A AL£ j t ’ . CRV / 4S  .BRV/BU' 


v 


APPENDIX  B 


WORKSPACE  GENCRV 

CANONICAL  REPRESENTATION  GENERATOR 


System  Variables: 

□TO  «-*■  0 


Variables : 

AMF  is  the  APL  character  vector 
pAA<4£ 

142 

AAAV 

ABCDEFGHIJKLMNOPQRSTUVWXYZ0123H56789  , . / [ = 

$ 4-+~p€0)?ari_VAo’0()}\:  ; | Tiunocn ! /iT@n@0 

kAZCDEFGgIJ£LMNQP&B.STUVWlZZ 

AA5£  is  the  level  3 representation  of  the  stream  identifier  and  the  trans- 
lation table.  As  described  in  the  text,  the  translation  table  is  an  array, 
the  rows  corresponding  to  the  APL  characters  in  AA4£.  The  number  of  col- 
umns is  the  maximum  number  of  overstrikes  required  to  print  the  APL  char- 
acters . Thus 

row  2 would  be  SPACE , ' A ' 

and  row  142  would  be  ,'Z' 

AA BV  is  formed  by  first  constructing  the  level  2 canonical  representation 
vector 


CRV  ('O'  A A PREP  'WSIS'),TTAAPREP  'TRANSLATE' 

t 

where  TT  is  the  translation  table  array 


A A BV  is  then  defined  as 

,0( 8p 2 )ThbASCIIhAPL \CRV 

where  AAASCIIAAPL  is  the  ASCII/APL 
transmission  code  vector 

(A AASCII&APL  is  defined  in  the  workspace  GENWS ) 


In  generating  the  bit  stream,  the  incoming  character  stream  to  the  func- 
tion AA OUTF  is  processed  in  blocks  of  512  characters.  The  size  of  this 
block  may  need  to  be  modified. 


14. 


■jENC  RV 


v 


L 1 J 
L 2 J 
L 3 j 

L 4 j 

L 5 j 
Lb  J 
L?  j 
L 0 J 
Lb  J 
L 10  J 
L 1 1 J 
L 12  J 
L 13  j 

L 14  j 

L 15  j 
L lb  j 
L 17  ] 
L lb  J 

L lb  j 
L 20  j 


L 21  J 
L 2 2 J 
L 23  j 
tl  24  j 
L 25  J 
L 2o  J 
L 27  J 
L 2 o j 
L 2b  J 


AA£££  l 


AA£££/;AA£; AA£ 

ft  AA£££/  GENERATES  A WORKSPACE  CANONICAL  REPRESENTATION  VECTOR 
ft  CONFORMING  TO  THE  ZZAtt  PROPOSED  CONVENTION  FOR  LEVEL  2 
aIO*-LLZ2 

AAi«-(AAV£  LLttlt  ' V S 1 0 ' ) , ( AA/£££  ' Ci  FP'),(AA/S£F  ' £?V  ’ ) , A AVREP  'RIO' 

_;PF*-1  b 

dPV«-AA££ 

-iIC^O 

AA££££  AA£,  ( LL/txE£  ’ ’ ) , ( AA££££  ' ZLX ' ) , L EVR^P  'uRL' 

ft  dS.Vp/t/Jritf.v  3*'  FUNCTION  CANONICAL  REPRESENTATION  VECTORS 

AA^^u.i/A  3 

AA£«-’  L LI  NIT  AA22I£  ELZKL'I  AA££££  ALZ5.lt  AA155E  LLFR^t  AA££F/  llodcr  ' 
Aui*(A/^Ai.v  .*(  (i  + oAA£)  ,9)  t$  a 7 p AAY  ) /A  AX 
A A£££/ 1 : ( 0 = 0 , A A£ ) / A A£££/ 2 
LLJUZt  LLZ&ZZ,LLZ5Z'd  A AX  il  0 ; ] 

' FUNCTION  CONVERTED : 1 , AA£[ 0 ; ] 

LLl*-uEX  AA£L0;] 

AA^-  1 0 4 A AX 
-►AA£££/1 

ft  GENERATION  OF  VARIABLE  CANONICAL  REPRESENTATION  VECTORS 
ALZZR/2  : AAX«-J;V£  2 

LLI+-  * A A/  ~A  AX  LLRZ  LLCH  LLAV  A AS/  AAFS  AAVS  LLLC  LLIO  ' 
AAX<-(a/AAXv.*((14PAAX),Io)+5~10  I^aa/T/aa” 

4 A££rt/ 3 :-*’(0  = p,AAX)  / A A££F/4 
LL2ZZF  LL£REP,LLZKZ-d  AAXlO;J 
'VARIABLE  CONVERTED:  ’ .AAXtO;] 
iiA£«-uaX  AA^lO;] 

LLX*-  1 0 4AA£ 

4-AA£££/3 

AA££n£4:  LLQU.ZI  'O'  AA££££  'END' 


"fc.. 
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M&UZS. 


15. 


V LEQ.UZF  AA£;AA£; AAF;AA£;  AA£;AA£ 

Llj  n IF  CONVERSIO  V COMPLETED,  FLAG  TO  OUTPUT  REMAINDER  OF  STREAM 
L 2 j AA£«-a/ » 8PFf/0’*5  + AA/ 

L 3 j n Ai2£/  CURRENT  /ECTOR  TO  ACCUMULATED  STREAM  BUFFER 

L4j  n (IF  SI I STREAM,  ITERATI/ELY  ADD  BLOCKS  OF  512 

L 5 j n CHARACTERS  CONVERTED  TO  BIT  VECTORS) 

io]  A A£-*-5  12 

L 7 J AA&/££l:AAS/-«-AA5/,l  3 " 3 1 [ A ELC ] t ’ A A/  , $ ( AAFSo 2 ) T A A£/ i ( AA6 L o A A7 ) t A A/ ’ 

L3J  AA/«-l  2 _8LAAIC]t * ’ ’ ’ ’ AAa+AA/’ 

Li J n OUTPUT  FULL  LIMES  (CHARACTER  STREAM) 

LluJ  n L?rt  FULL  WORDS  (BIT  STREAM)  OF  ACCUMULATED  STREAM 
111]  AA£«-i  4 ~2  L A AAC]  + ' A AFL  36’ 
l12j  ALiI«-( -AAn  | pAA£/ ) + AAS/ 

L 1 3 J -*-(AA4>0AAa/)/AA2i/I£2~ 

L 14  j AA*2/-( -AAAJpAAS/TTaAS/ 

il5]  AAS/-1  36  "l3LAA£C]+  ’T(  ( ( o A A5  / ) * A AffL  ) , A AF£ ) o A AS/ )Bl  5 ] A AC’S  A A5/aA ACS , 0 , 2 ’ 
L 1 o J A L:2UT£2  : AA6/«-AAl 
L 17  j -(0*p,AA£)/AA2i/I£l 

l Is  j -►A  A£/  0 

L 16  j fl  IF  CONVERSION  COMPLETED,  OUTPUT  REMAINDER  OF  STREAM 
L 2 u j AA6/«-i  12  _13LAAIC]t  ' AAS/dlL  5 JAACi  A A S/a  A ACS  ,0,2’ 
v 


j a .v  J h / 


EL/ REP 


V AA£<-AA/£5£  AA£ 

LI]  fl  AA£  IS  THE  NAME  OF  THS  /ARIAbLE 
L 2 J fl  GET  /ALOE 

L 3 j AAA^lAAd 

l4]  a CATENATE  0 AM E , RANK , SHARE  /ECTOR,  AO D /ALOE 
llSj  AA£«-AA4,'  ' , (f(ppAAfi)  , o AA£)  , ' *,?,AA/f 

L 6 J fl  APPEND  DATA  TYPE 
L 7 ] AA£«- ’ <7(7  ’ L ( 1 1 ) + ’ ’ = ItOplAA/i  ] , AAF 

L o j a APPEND  /ECTOR  LENGTH 
L 9 j AA£«-(  fpAAfi)  , AA& 

V 


AA ££££ 


v AAA«-A  AFrtSP  LEA 

ill]  fl  AAfl  IS  THE  NAME  OF  THS  FO  NOT  ION  TO  BE  CONZSRTED 
L 2 J fl  SAT  CANONICAL  REPRESENTATION 
Loj  RbR*-LL£DCR  LEA 

L 4 j B APPEND  DATA~TYPE,  RANK,  AND  SHAPE  / ECTOR 

L 5 It  A AA-*-  * f"  , A AA  , ’ ’ , ( ¥ ( o p A AA  ) , p A A£)  , ’ ’,,AA  R 

L 6 j fl  APPEND  /ECTOR  LENGTH 
ll  7 ] AAA«-(  f oAAA  ) , A A£ 

V 


AA££££ 


V AAA«-AA/  RE^kSE  AA<4 
L1J  B GENERATE  PSEUDO-/ ARtABLE 

L 2 j fl  LEA  IS  THE  NAME  OF  THE  PSSO DO- / ARI AB LS  AND 

L 3 j B AA£  IS  THE  /ALOE 

L4J  fl  CATENATE  NAME,  RANK,  SHAPE  /ECTOR,  AND  /ALOE 

LS]  AA£«-’F’  ,AA/1 , ’ ’ , ( ¥ ( p p A A/ ) , p A A/ ) , ’ ' , ¥ , A A/ 

LOJ  fl  APPEND  /ECTOR  LENGTH 

ll  7 j AAft«-(  ¥pAA&)  , PAft 


APPENDIX  Q 


WORKSPACE  GENWS 

WORKSPACE  RECONSTRUCTION  FROM 
CANONICAL  REPREN STATION 


System  Variables: 

Dro  -*-+  o 


Variables: 

hbASCIILAPL  is  a partial  ASCII/APL  transmission  code  vector  containing 
the  printable  ASCII/APL  characters  and  the  ASCII/APL  character  NUL . If 
the  incoming  translation  table  contains  control  characters,  AAASCIILAPL 
should  be  extended,  using  the  standard  decimal  ASCII  representation  to 
determine  the  indices. 


The  function  bNCRCVT  extracts  individual  canonical  representation  vectors 
from  the  partial  character  stream  in  core.  If  the  stream  is  too  short 
to  extract  the  next  vector,  AA CFIN  reads  blocks  of  5 lines  of  the  ASCII 
file  until  the  stream  is  sufficiently  long.  The  number  of  lines  read  by 
AAC7FIW  may  need  to  be  modified. 


r 


18. 


OS.i /VS 


lei  sit 


L 1 J 
L 2 J 
L 3 J 
14  j 
l 5 j 
L 6 J 
l 7 j 

L 6 j 

L'SJ 
L 10  j 
LllJ 
L 12  j 
L 1 3 j 

L 1 4 J 
l 1 5 J 
L lc  j 
L 1?  j 
l ia  j 
L 19  j 
L 20  j 
L 21  j 


ELI  NIT ; A AFV  ; A ASL  ; A AC// ; A A VS ; A EIO 
' F ILE  TO  bS  COS/ERTED : fl' 

AAF/V«-tL 

'I/FS  0?  FILS’ : ’ 

ESTER  2 (CHARACTER  STREAM ) OR  3 (SI?  STREAM) 
■*■(  ’ 3 ' siL)  / AAI/t/If  3 
'FILE  LISE  LENGTH : «’ 

A AAL^iiH 

AA<7A*-u;4SS  AAF<V, ’//JS’ 

-►A  ElNlTl 
ELI  SITE : ELBFIN 
•*’ELTnANS/  u 
AA(7S«-AAflC/I 
LLINITI: EEC SC IT  " 

■_iIO-LMG 

T t 

’IAS  ABO/ E I’iDI/ IDU ALS  HA/3  BEEN  RECREATED 
T'O  COMPLETE  THE  WORKSPACE  RECONSTRUCTION 
'ENTER  THE  FOLLOWING:' 

' ) W SID  ' , A A VS 

’ JSA/4SS  A A JESUS' 

' )SA/E ' 


I 


■j  .1 : N V 6 


A LIRA  jS 


19. 


N A A a Rn*-L  Li  RAN S ; A A AS  ; A A C7  ; A A FA 
ilj  fl  AAFii/US  CHECKS  THS  STREAM  IDENTIFIER 
L 2 j a i4,»0  EXTRACTS  THS  T RAN  SLATON  TAELS 

l 3 J LLCV-LLASCIlLAPLi (8p2)i$  15  6 01204AA3F] 

L4j  -*>(’S  PVSIS  0 0 ’ =10t  LAC'/) /&LTRA  V51 

loj  ’ FILS  DOSS  NOT  CONFORM  TO  STAFL  FORMAT  CONVENTIONS  ' 

Loj  TO  INSPECT  THS  FILE,' 

L?J  AAr.V,’  A/iS  BESS  ASSISTED  TO  THS  VARIABLE  AA 3F' 

L d J */UO  f.AF  ATTEMPTED  CONVERSION  OF  THS  FIRST  15  CHARACTERS' 

lS]  Tri/35  BEEN  ASSIGNED  TO  A A <7/’ 

LlOj  LLS  RR+-1 
Lllil  -*-U 

l 1 2 J a CONVERT  THE  TRANSLATION  TABLE  FROM  BINARY 
C loj  a FJ  i4  CHARACTER  VECTOR 
L14J  AAFA/i.VSl  :AA£«-iAAC/L9  + il+(-5-fAAC/)  i ’PT  j 
l15j  &LL*-d*  ( 10  + AAL+p?  AAA) 

L loj  A AC/  +-LLASC II  LA?  L L(do2)l$(  (~10+AA£*8),8)oS0+AAL+AA5?j 

t!l7j  LLbF*-LLLN  LLoF 

lIbj  a CONSTRUCT  THE  TRANSLATION  TABLE  ARRAY 
L 19  j LLCiiCV  I LLCV 

L 2G  J A FOA  a ,40  A AO-V  OP  Hs  TRANSLATION  TABLE , 

l 2 1 j a insert  backspace  between  each  character 

l 2 2 J A AC  F«- , A Af  A/),";'SL.4Fa’l  ; A AC«-0  j 

L 2 3 j A Aa5«-(  o LET  RAN  5 LA  IS  ) C 0 ] puAV  £ 9 d j 

l 2 4.1  LET  it  A NS2  : -►(  ( oA  AFA^-VSi/lFa’)  L 1 j =AAC«-AAC+1  ] / LLTR  A N S3 
L 2 5 j AAFF-AAFF ,LLbS , ,LLTkANSLATSi ;AACJ 
li2oj  ■+LLIRANS2 

l 2 7 j LET  RAN  S3  : AAFC/F«>(  (“l+2*  ( o A AFA/1  N SLATE ) L 1]  ) , { o LLT RAN S L ATE ) LO j ) oAAFF 
ii  /a  J AAa  AA«-0 
v 


LLTCVT 


V LLTCVT  LLA ; LLCH ; A Al 

LlJ  a LLTCVT  CONVERTS  THE  TRANSLATION  TABLE 
L 2 j A FO  CAS  /SPA  O/iMftjJCFSS  VECTOR 

l‘3  j A ACA*-l<4S5(  ( 4 L o A AF.V  ) 4 A AF.V  ) 2 t ▼□£/£, ) , ’ . C A/  //IS  ' 

L4j  LLA-LLAai 5JLLCH 

Loj  lC LS  A A C H 

loj  AAI«-0 

L 7 j RETRANSLATE*-" 

C a j AaFC/Fl : LLT  RAN  SLAT  S+-L  LT  RAN  SLATS  ,ltiC5jAAC.A 

liaj  -*>UoAA/l)L0  j>AAI-AAr  + l)/AAr'7/2’l 

lilJj  ^DAS  LLCH 


• t.£. 


±LA 


^ E "1 


~ 


20. 


Ja  ■¥  VS 


RRCRC/T 


V RRCRC/T  AA.V;AAP;AA£,;AA/;AAr;AA.y;AAS;AAS 
L 1 J ft  A RCRC/T  CREATES  A WORKSPACE  FROM  THE 

i 2 j a OA'/l/i/aCrPA  STREAM  OF  THE  WORKSPACE 
L 3 ] AAo,iiL?/2’l:i(10>pAAV)/,AA:V«-AAtFI/V  AAV’ 

L4J  ft  DETERMINE  LENGTH  OF  AM  INDIVIDUAL 

Lbj  n CANONICAL  REPRESENTATION  /ECTOR 
Loj  A£A«-(  L/dO  + AAVJi'  HCF?'  ) fRR-V 

L? j AACAC/T2:-»>( (oAAV) >tRLL) / RRCRC/T3 
Loj  AAV«-AAOPI.V  AAV 

C 9 ] -RRCRC/T2 

L 1 0 J ft  EXTRACT  INDIVIDUAL  CANONICAL  REPRESENTATION  /ECTOR 
l 11  j RRCRC/T 2 : A AV«-(  ( 0 AA/«-A  AVI  ( p A AI  ) + \ j.  A RL  j ) + p A AL  ) + A AV 
L 1 2 j Lap*- (REV-  ' 'j/ipAA/ 

L 1 3 j ft  Jar  UPS  OP  IN 01/ IDU AL 
L 1 4 ] AAI«-lt  AA/ 

L 1 5 j ft  JST  .Vi4<^£ 

Lloj  AA.V«-l  + AAPiO]tAA/ 

Ll?J  ft  GET  RANK 
i 18  j A RR*t  ( 1 + pAAiV)  + AAPL  1 ] + A A/ 

L 19  J ft  GET  SHAPE  /ECTOR 

L 2 J j t'RRS*',  2 ~22LAAA*0]+ ’ i 0 i A A?L 1 j + AAP[ 1 + A AS] t A A/ ’ 

L 2 1 j AA/«-(  1 + AAPl  1 + AAA]  ) +AA/ 

122]  +(RRI=' P' ) / RRCRCZTB 

L 23 j ft  IP  NUMERIC  / ARIASLE , CONVERT  /ALUS  TO  NUMBER 
L24J  l ( AAT  = ’ .V’  ) / ’ AA/«-t4  ~ 1 L 0 = o A A/ ] t ' ' t A A/  O’’’ 

l 2 5 ] ft  SAVE  U 10  OP  WORKSPACE 
L26j  -*■(  ’uIO’  *3tAA.V) /RRCRC/TR 
L 2 7 j AAI0«-AA/ 

L2dj  A AJ 
l 29  j -*RRC  RC /T 1 

L 30  j n ASSIGN  VALUE  TO  VARIABLE  OR  FIX  FUNCTION  DEFINITION 
L 3 1 ] A AO  AO/ f 4 : l 15  “ 1 1l  A Af=  ’ P ’ ] + ’ lA  A.V  , ’ ’ «-A  ASp  A A/ ’ ’ Of  X RRSoRRV' 
L 3 2 J t( AAT* ' P ' ) / ’ AA9 ' 

L 33  j +RRCRCZT1 

L 3 4 ] n PROCESS  PSEUDO/ ARIABLSS, 

L 35  j RRCRC/T 5 : i ( a/  ’VSIO  ' = 4 + A A.V)  / ' A AVS«-A  A/  * 
loo]  ft  IP  SII  STREAM,  CONSTRUCT  TRANSLATE  TA3LE 
L 3 7 J -*•(,  ' TRANSLATE'  *'dtRRU)  / EEC  RC/TS 
L 3 3 j AArA/4VSI/lf£«-(iAAS)pAA/ 

L 39  J -►O 

L 4 0 J RRChC/To  :•*■(  ' END'  *2 1 A A.V  ) / A RCRC/T l 

V 


iai 
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A DBF  IN 


V AAbFI.V ; LECH 

*:  1 -I  fl  LLBFIN  READS  THE  SIT  ST  RE  AH  REPRESENT  ATION 

l2j  a OF  THE  SORES PACE 

LiJ  LLCii+uASS  A A FN,'/dU' 

l*J  AAaF-«-iiAAC5,0,2,  (ijFLS  A ACS ) L'2  3 * 3 6 

L o j l.oAS  A A Cri 

V 


AA  BCVT 


v LLCH+L L3C/T ; A ASL ; A A? ; uPV; A AFS 
l 1 j a LLoC/T  COS/ E RTS  THE  BINARY  STREAK  TO  A CHARACTER 

i2j  a STREAK  USING  THE  API  CHARACTER  / ECTOR 
L J]  AA(7£«-l!/1SS(  (4l  pAAf.V)  + AA?.V  ) , (~2  + fu£/L)  .CRS / AS' 

L 4 J AAAL«-l,PV«-12  3 

l 5 J Lht 2*o RETRANSLATE 

L o j AASL«-A  APS*  5 12 

C7  j A AbC/Il  : A L?*-LL?  RAN  SLATEi  ( A AFSo  2 ) i«P  ( 5 12  , A AFS)  p A A5L*  A ASF] 

L 6 J AAI«-(  4 128  oAAf;*!L  5 JAACS 

t'a  j LbdF*-LLbLS  AA£F 

L 1 0 j -*-(0*oAA5F)/AA5C/!Il 

l 1 1 J LjCIS  A AC3 
V 


A A of  IV 


v LLn+LLCFIN  A AC ; AAL 

ilj  a LLCFU  READS  A SLOCK  OF  S FILE  LIVES  OF 
L 2 J a Crf/lrtdCffifl  STREAK  REPRESENTATION  OF  THE  WORKSPACE 

l j j A AA«-A  AC 

L 4 J A AL«-0  * 

l5j  A ACFI.V  1 : A A/«-ol  5 j A ACtf 

loj  ■♦  ( u 75  =o,AA/)/Q 
L 7 j A A/r«-A  A/r , A AAL  t A A/ 

Coj  -*■(  5>  AAL-*-A  AL+ 1 ) / A ACFI'Vl 
v 


The  following  functions  are  used  in  the  workspaces.  M^QDCR  is  included 
ecause,  in  the  version  of  APLSF  on  which  these  programs  were  run  the 
system  function  OPR  did  not  perform  correctly. 

The  four  utility  functions  assume  Oz?  to  be  1 and  minor  modifications 
are  required  if  Q 10  is  Q. 
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23. 

RRQUCR 

V 

EER*-ReQL/CR  AAj4  ; AA£  ; AA£  ; 21 21  i 

L 1 j 

a ~RRQDCh  IS  SQUI/ALSST  TO 

L 2] 

a SI  ST  EM  FUHCTIOtl  <jC  R 

L 3 J 

A A£«-l  + TAA£ 

14  J 

Aa£«-AA^=u/1/L  102  j 

L 3 3 

A A£«- 1 0 

L O J 

RR'«DChl:+RRQDCR2*  i 3>pAA  I 

L?J 

AaX«-AAA,(AA£i1)-1 

L 3 J 

AA£-*-((  1 + A AA ) +2 ) 4 A AT 

is  j 

■+RRQUCR1 

i 10  J 

ERQDCR2 : RER+-( ( p A A A ) , f / A A£ ) o ' ' 

L 11  J 

AA£«-1 

L 12  j 

AAQ£i(7/t3:->(AAI>pAA4)/0 

il3  J 

AAAiAAI; i A ALL  A AX] 3*-A AL L A AX J t A RSTRP  A ALL  A AX  3 + A AD 

L 14  j 

AA£«-(  AA£l  AA£3  + 2) + AA£ 

i 15  j 

AA£<-AA£+1 

L lb  J 

V 

■+REQDCR3 

| 

A RSTRP 

1 

t 

V 

REr*-EESTRP  ERA 

Ll  J 

A EESTRP  REMOVES  LEAD I SO  BLANKS 

• 

L 2 J 

A FROM  THE  CHATTER  '/ECTOR  ERA 

i 3 J 

AA£<-,  AA£ 

L 4 j 

V 

AAfi-UUA&c’  ' ) i 0 ) - 1 ) + AAA 

RET R I A 

V 

REVERT  hi  A ERA 

Ll  J 

a RRTrIM  REMO/ ES  TRAILISJ  BLANKS 

i 2 J 

a THE  CHARACTER  /ECTOR  LEA 

L 3 j 

V 

RRb‘-<t>RESThP*RR& 

t 

RRQPLQ 

V 

RRn*-RRUPLQ  ERA;  AA£ 

i lj 

A RRuPL*  INSERTS  A SECOND  QUOTE  AFTER  EACH 

i 2 J 

A OCCURRENCE  OF  A QUOTE  IS  STRINO  ERA 

L 3 j 

EEq<-R  E£ 

i 4 J 

ELI,*-  1 

L 5 j 

EEl/FLQ  1 :-*l  ( pAAA)  < AA£«-AA£+1+  ( (AA£+l)+AAfi)t,,,,)/0 

i 6 j 

Aaa-( AA£tAA£) , » ' * 1 ,AA£+AA£ 

L 7 J 

■*RRuPLQ1 

24. 
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